
*****@@@@@@@@@@@@@@@@@@@*****
*****************************
*****Resultados Planea 2015*******
*****************************
*****@@@@@@@@@@@@@@@@@@@*****

clear
set more off

use "$basein/Planea/peb2015_alum.dta", clear

drop if entidad=="CHIAPAS"

rename cct school_id

*********************************************************
***Traigo base con variable de tratamiento y controles***
*********************************************************

merge m:1 school_id using "$basein/Datos adicionales/base_Contraste.dta", gen(planea)

keep if planea==2 | planea==3


merge m:1 school_id using "$basein/Datos adicionales/Experimento_id.dta", gen(experimento)
drop experimento

merge m:1 school_id using "$basein/Datos adicionales/estratos.dta", gen(_estrato)

keep if _estrato==3

merge m:1 school_id using "$basein/Datos adicionales/Change_Director_2015_2018.dta", gen(_cambio)

drop if _cambio==2

rename ptje_mat wle_mat  
rename ptje_esp wle_lyc 

******************
***KEEP´ONLY PEC VS PEC PLUS******
******************

drop if state==10
drop if treatgroup2=="Control"

*************
**Id estado**

gen esi=substr(school_id, 1,2)

**********************
**Genero tratamiento**

gen PEC_Plus=0
replace PEC_Plus=1 if treatgroup2=="PEC Plus"

gen PEC=0
replace PEC=1 if treatgroup2=="PEC"

gen Control=0
replace Control=1 if treatgroup2=="Control"

******************************************
**Estudiantes que no tomaron son missing**

replace wle_mat=. if presen_mat=="0"
replace wle_lyc=. if presen_esp=="0"

***********************************
**Estandarizo variables resultado**

egen mat_std=std(wle_mat)
egen leg_std=std(wle_lyc)
gen promedio=(wle_mat+wle_lyc)/2
egen promedio_std=std(promedio)

pca wle_mat wle_lyc, components(1)

predict prom_pca
egen prom_pca_std=std(prom_pca)
replace prom_pca=prom_pca_std
**************************************************
**Genero efecto fijo de estado y otros controles**

encode entidad, gen(estado)

gen m_alta=0
replace m_alta=1 if marginacion=="Muy alta o Alta"

gen m_media=0
replace m_media=1 if marginacion=="Media"

gen m_baja=0
replace m_baja=1 if marginacion=="Baja o Muy baja"

encode school_id, gen(cct_num)

save "$base_out/alum_pb_2015_modified", replace

keep mat_std leg_std promedio_std prom_pca  treatgroup2 PEC PEC_Plus cct_num estrato estado nvl_esp nvl_mat 
save "$base_out/learning_summary_2015.dta", replace

**************
**************
**************
**************
clear
** Junto primaria y secundaria
use "$basein/Datos adicionales/PLANEA_2015_Primaria.dta"
append using "$basein/Datos adicionales/PLANEA_2015_Secundarias.dta"

destring, replace
gen mathI=real(Mat_pct_LI)
gen mathII=real(Mat_pct_LII)
gen mathIII=real(Mat_pct_LIII)
gen mathIV=real(Mat_pct_LIV)

gen langI=real(Len_pct_LI)
gen langII=real(Len_pct_LII)
gen langIII=real(Len_pct_LIII)
gen langIV=real(Len_pct_LIV)

rename CLAVEDELAESCUELA clavecct
/*
gen school_id= clavecct
merge m:1 school_id using "$basein/Datos adicionales/base_Contraste.dta", gen(planea)

keep if planea==2 | planea==3

merge m:1 school_id using "$basein/Datos adicionales/Experimento_id.dta", gen(experimento)
drop experimento

******************
***KEEP´ONLY PEC VS PEC PLUS******
******************

drop if state==10
drop if treatgroup2=="Control"
*/

save "$base_out/Planea2015_Escuelas.dta", replace
